

OTHER PROCEDURES 


PACK(a, i, z) 


UNPACK (z, a, i) 


NEW(p) 


DISPOSE (p) 


ESCAPE 





EXTERNAL LIBRARY ROUTINES 
(portable) 

PROCEDURE CALL$ (ADDRESS: INTEGER; VAR A, F: 

BYTE; VAR BC, DE, HL, IX, IY:INTEGER); 
FUNCTION FILE$STATUS (VAR F : TEXT ): BYTE ; 
FUNCTION GETKEY:CHAR; 
PROCEDURE HP$ERROR(NEWSTATE: BOOLEAN; 

VAR OLDSTATE : BOOLEAN) ; 
PROCEDURE INKEY(VAR CH:CHAR; 

VAR READY : BOOLEAN) ; 
FUNCTION INP ( PORT: BYTE ): BYTE; 
PROCEDURE IO$ERROR(NEWSTATE: BOOLEAN; 

VAR OLDSTATE : BOOLEAN) ; 
PROCEDURE OUT (PORT, VALUE: BYTE) ; 
FUNCTION PEEK (ADDRESS: INTEGER) :BYTE; 
PROCEDURE POKE (ADDRESS: INTEGER; VALUE:BYTE); 
PROCEDURE SETACNM(VAR F:TEXT; NAME : STRING) ; 
PROCEDURE USER (ADDRESS: INTEGER; 

VAR HL: INTEGER) ; 
PROCEDURE WRITECH(CH:CHAR) ; 
PROCEDURE WRITESTRING(VAR S : CHARSTRING; 

FIRST, LAST : INTEGER) ; 
PROCEDURE $MEMORY(VAR STACK, HEAP : INTEGER) ; 

String Routines 

FUNCTION CHARACTER (S: STRING; POSITION: 

INTEGER) :CHAR; 
FUNCTION CMPSTR(S1, S2: STRING) : COMPAREVALUE ; 
FUNCTION CONC (SI, S2: STRING) : STRING; 
FUNCTION CPYSTR(S: STRING) : STRING; 
FUNCTION DECODED (S: STRING) :REAL; 
FUNCTION DECODEI (S: STRING) : INTEGER; 
FUNCTION DECODER (S: STRING) :REAL; 
FUNCTION DELETE (S: STRING; POSITION, 

LENGTH: INTEGER) : STRING; 
FUNCTION ENCODED (R:REAL) : STRING; 
FUNCTION ENCODEI (N: INTEGER) : STRING; 
FUNCTION ENCODER(R:REAL) :STRING; 
FUNCTION FIND (SUBSTRING, S: STRING) : INTEGER; 
FUNCTION INSERT (SUBSTRING, S : STRING; 

POSITION: INTEGER) : STRING; 
FUNCTION LEFT$ (S: STRING; POSITION: 

INTEGER) : STRING; 
FUNCTION LEN (S: STRING) : INTEGER; 
FUNCTION MID$ (S: STRING; POSITION, 

LENGTH: INTEGER) : STRING; 
FUNCTION REPLACE (OLDSTRING, NEWSTRING, S 

: STRING) : STRING; 
FUNCTION RIGHT$ (S: STRING; POSITION: 

INTEGER) : STRING; 
FUNCTION STR$ (LENGTH: INTEGER; CH:CHAR) 
: STRING; 



10 

11 

12 

13 

14 

15 

16 

17 

20 

22 

23 

49 

50 

51 

52 

53 

54 

55 

57 

58 

62 

66 

80 

81 

82 
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123 
126 
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132 
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COMPILER ERROR MESSAGES 

IDENTIFIER EXPECTED 

'PROGRAM' EXPECTED 

' ) ' EXPECTED 

' : ' EXPECTED 
ILLEGAL SYMBOL 

'OF' EXPECTED 

' ( ' EXPECTED 
ERROR IN TYPE 

LEFT BRACKET ' [ ' OR ' ( . ' EXPECTED 
RIGHT BRACKET ' ] ' OR ' . ) ' EXPECTED 

'END' EXPECTED 

' ; ' EXPECTED 
INTEGER EXPECTED 

'=' EXPECTED 

'BEGIN' EXPECTED 

' , ' EXPECTED 

' . . ' EXPECTED 

' . ' EXPECTED 

'ARRAY' EXPECTED 
CONSTANT EXPECTED' 

' :=' EXPECTED 

'THEN' EXPECTED 

'UNTIL' EXPECTED 

'DO' EXPECTED 

' TO ' / ' DOWNTO ' EXPECTED 

'FILE' EXPECTED 

INVALID OR MISSING OPERAND 

DECIMAL PLACES ALLOWED ONLY FOR REAL 

TYPE IDENTIFIER EXPECTED 

OPEN COMMENT WITHIN A COMMENT 

UNKNOWN OPTION 

# REQUIRES A 2 CHARACTER HEX VALUE OR #1 

IDENTIFIER DECLARED TWICE 

LOWER BOUND EXCEEDS UPPER BOUND 

IDENTIFIER IS NOT OF APPROPRIATE CLASS 

UNDECLARED IDENTIFIER 

CLASS OF IDENTIFER IS NOT VARIABLE 

INCOMPATIBLE SUBRANGE TYPES 

ARRAY BOUNDS MUST BE SCALAR 

UNSATISFIED FORWARD REFERENCE TO A TYPE 

IDENTIFER OF A POINTER 

';' EXPECTED (PARAMETER LIST NOT 
ALLOWED) 

FUNCTION RESULT MUST BE SCALAR, 
SUBRANGE, OR POINTER 
FUNCTION RESULT EXPECTED 
IMPROPER NUMBER OF PARAMETERS 
TYPE OF ACTUAL PARAMETER DOES NOT MATCH 
FORMAL PARAMETER 

TYPE CONFLICT OF OPERANDS IN AN 
EXPRESSION 

COMPARISON WITH '>' OR '<' NOT ALLOWED 
ON SETS 

ILLEGAL TYPE OF OPERANDS 
TYPE OF EXPRESSION MUST BE BOOLEAN 
SET ELEMENT TYPE MUST BE SOME 
ENUMERATION TYPE 



COMPILER ERROR MESSAGES 

138 TYPE OF VARIABLE IS NOT ARRAY 

14 TYPE OF VARIABLE IS NOT RECORD 

141 TYPE OF VARIABLE IS NOT POINTER 

14 8 SET BOUNDS OOT OF RANGE 

152 NO SOCH FIELD IN THIS RECORD 

154 ACTUAL PARAMETER MUST BE A VARIABLE 

156 MULTIDEFINED CASE LABEL 

161 PROCEDURE OR FUNCTION ALREADY DECLARED 

AT A PREVIOUS LEVEL 

165 LABEL ALREADY DEFINED 

167 UNDECLARED LABEL 

168 LABEL NOT DEFINED 

182 "FOR" EXPRESSION MUST BE OF SOME 
ENUMERATION TYPE 

183 "CASE" EXPRESSION MUST BE OF SOME 
ENUMERATION TYPE 

184 "FOR" VARIABLE MUST BE LOCAL 

185 OPERATION DEFINED FOR TEXT ONLY 

186 OPERATION NOT DEFINED FOR TEXT FILES 
193 ACCESS STATEMENT MISSING FOR COMMON 
199 FEATURE NOT IMPLEMENTED 

202 STRING CONSTANT CANNOT SPAN LINES 

203 INTEGER CONSTANT TOO LARGE 

210 FIELD WIDTH MUST BE INTEGER 

211 FRACTION LENGTH MUST BE OF TYPE INTEGER 

212 HEX FORMAT ALLOWED ONLY FOR TYPE INTEGER 

219 PARAMETER MUST BE OF TYPE FILE 

220 PARAMETER MUST BE OF TYPE INTEGER 
223 PARAMETER MUST BE OF TYPE POINTER 
230 ILLEGAL TYPE OF PARAMETER IN STANDARD 

PROCEDURE CALL 

250 TOO MANY NESTED SCOPES - LIMIT IS 15 



RUNTIME ERROR MESSAGES 

01 Out of stack space 

02 Heap space exhausted 

03 Invalid pointer in dispose 

04 Illegal static nesting level 

05 Attempt to divide by zero 

06 Pcode instruction not defined 

07 Sets not compatible 

08 Undefined internal procedure 

09 Physical IO error 

DA Set element too large 

10 Invalid array index 

11 Attempt to read invalid number 

12 Undefined file buffer variable 

13 Arithmetic overflow 

EB Attempt to write to input file 

EC File not open 

ED Attempt to read from output file 

EE No heap space for file buffer 



ey 


Mnemonic 


E 


UP 


X 


DN 


S 


LF 


D 


RT 


QS 


BL 


QD 


EL 


H 


LF 


QH 


IIM 


F 


FW 


A 


BW 


I 


TB 


Qi 


BT 


R 


RU 


C 


RD 


QR 


TP 


QC 


BB 


G 


DC 
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DW 
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DE 


Y 


DL 


QY 


UL 
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CL 
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DU 
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SP 


P 


MG 
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J 
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QJ 
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L 


RN 


QL 


RS 


BM 


MK 


BC 


CB 


BD 


DB 


BI 


IB 


BF 


FI 


BJ 
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BU 


UR 


BL 


LR 


BG 


GM 


BS 


sw 


BP 


PR 


V 


IC 


Z 


CM 



EDIT <filename> 
KEY MAPPED COMMANDS 



Function 
Cursor up 
Cursor down 
Cursor left 
Cursor right 
Cursor to BOLN 
Cursor to EOLN 
Cursor left 
Cursor home 
Forward by word 
Backward by word 
Tab forward 
Tab backward 
Roll up 
Roll down 
Top of buffer 
Bottom of buffer 
Delete character 
Delete word 
Delete to end of line 
Delete line 
Undelete line 
Center line 
Duplicate line 
Split line 
Merge line 
Insert line 
Next line 
Find next 
Find string 
Replace next 
Replace string 
Mark block 
Copy marked block 
Delete marked block 
Insert block 
Fill marked block 
Justify marked block 
Upper case marked block 
Lower case marked block 
Go to mark 

Swap cursor and mark 
Print marked block 
Insert character mode 
Command mode 



HELP 


HP 


APPEND 


AP 


WRITE 


WR 


INSFILE 


IF 


EXTRACT 


XT 


SAVE 


SV 


EXIT 


EX 


QUIT 


QT 



COMMAND MODE 

Display help files 
Append lines to buffer 
Write lines to file 
Insert file 

Write marked block to file 
Save current changes 
Exit and save changes 
Exit without saving 





PASCAL PROGRAM STRDCTDRE 




A parameter list ma 


y be def 


ined as fol" 


ows : 


( <VAR> 


{identifier 


list} : 


( type } ; 




<VAR> 


{ identifier 


list} : 


{type} ) 




An ident 


ifier must 


start wi 


th a letter, 


and 


is compo 


sed of the 


letters, 


digits and 


the 


' ' , ' $ ' 


characters 


. The first 8 characters 


must form a unique 


name. 









PREDEFINED TYPES 


CHAR, 


INTEGER, BOOLEAN, REAL, TEXT 




A type definition is: 


(1) 


{predefined type}; 


(2) 


{ constant } . . { Constant } ; 


(3) 


( {identifier list} ); 


(4) 


<packed> RECORD 




{identifier list} : {type}; 




{identifier list} : {type}; 




END; 


(5) 


<packed> ARRAY [ {bounds} ] 




OF {type}; 


(6) 


FILE OF {type}; 


(7) 


SET OF {type}; 



FLOW CONTROL STATEMENTS 

CASE {expression} OF 

{selector list) : {statement}; 
{selector list) : {statement}; 

< OTHERWISE {statement); > 
END; 

IF (expression) THEN 
{ statement} 

< ELSE {statement}; > 

REPEAT {statement list}; 
UNTIL { (expression) }; 

WHILE { (expression) } DO {statement} 

GOTO {label}; 

ESCAPE; 



ARITHMETIC OPERATORS 
I = integer , R = real 


Operator 


Operation 


Type 
Operands 


Type 
Result 


+ 


add 


I , R 


I , R 


set 
union 


sets of 
compati- 
ble type 


same type 
as larger 
set oper 


- 


subtract 


I , R 


I , R 


set diff 


sets of 
compati- 
ble type 


same type 
as larger 
set oper 


-k 


multiply 


I , R 


I , R 


set 

inter- 
section 


sets of 
compati- 
ble type 


same type 
as larger 
set oper 


/ 


division 


I , R 


R 


DIV 


truncated 

division 


I 


I 


MOD 


modulus 


I 


I 





BOOLEAN OPERATORS 


Operator 


Result of Operation 


OR 


True if either one or both of 




the operands is true. 


AND 


True only if both operands are 




true . 


NOT 


True if operand is false. 



SPECIAL SYMBOLS 


Symbols with only one 


representation: 


+ 


/ 


<> < 


<= >= > 


( ) 

: # 


\ ':: 


Symbols with alternate 


representations : 


symbol alternate 


Meaning 


{ (* 


open comment 


} *) 


close comment 


@ 


pointer symbol 


[ (■ 


open array index 


} ■) 


close array index 





RELATIONAL 


OPERATORS 




Operator 


Result 


of Operation 


= 


True if left 
right . 


operand 


is 


equal to 


<> 


True if left 
to right. 


operand 


is 


not equal 


< 


True if left 
right . 


operand 


is 


less than 


> 


True if left 
than right. 


operand 


is 


greater 


<= 


True if left 


operand 


is 


less than 




or equal to right. 






>= 


True if left 


operand 


is 


greater 




than or equa 


L to right. 









OPERATOR PRECEDENCE 





<-- 


highest precedence 


+ , - 


<-- 


unary operators 


* , / , 


DIV , 


MOD 


+ , - 






= , <> 


, < , 


>,<=,>=, IN 


NOT 






AND 






OR 


<-- 


lowest precedence 







RESERVED 


WORDS 


The foil 


owing list 


of words 


are keywords and 


have spe 


cial meaning in 


a p 


rogram. They may 


not be used as identifiers. 




AND 


DOWNTO 




IF 




OR THEN 


ARRAY 


ELSE 




IN 




PACKED TO 


BEGIN 


END 




LABEL 




PROCEDURE TYPE 


CASE 


FILE 




MOD 




PROGRAM UNTIL 


CONST 


FOR 




NIL 




RECORD VAR 


DIV 


FUNCTION 


NOT 




REPEAT WHILE 


DO 


GOTO 




OF 




SET WITH 





ARITHMETIC 


FUNCTIONS 




ABS (x) 


absolute value 


SQR(x) 


square 


SIN(x) 


sine 


COS(x) 


cosine 


ARCTAN(x) 


arctangent 


EXP(x) 


natural 


LN(x) 


natural 




exponential 




logarithm 


SQRT(x) 


sq. root 



FILE 


ASSOCIATED PROCEDURES 


RESET (f ) 


REWRITE (f ) 


PAGE (f ) 


CLOSE (f) 


MESSAGE (s) 


GET, PUT 


READ , READLN WRITE, WRITELN 





FUNCTIONS 




Boolean 


Transfer 


ODD(x) 


TRUNC (x) 


LOCATION (x) 


EOLN(f ) 


ROUND (x) 


SIZE (x) 


EOF(f) 


ORD(x) 


HB(x) 




CHR(x) 


LB(x) 



SUCC(x) 



OTHER FUNCTIONS 

pred (x) 



(optional item , {user defined item} 
"items" are computer responses 





COMPILING 


Short Form: 




PASCAL {FILE 


CONTAINING SOURCE} 


Long Form: 




PASCAL 




"SOURCE =" 


<FILE CONTAINING SOURCE> 


"LISTING=" 


<FILE FOR LISTING> 


"OBJECT =" 


<FILE FOR OBJECT> 





EXECUTING 


Load and Execute 




RUNP {FILENAME} <STACK SIZE> 


Execute or Build 


Command File: 


LINKLOAD 




Command 
L 
R 
T 
I 
S 
B 


Meaning 
load object file 
run program 
return to TRSDOS 
clear symbol table 
display symbol table 
build command file 





DEVICE NAMES 


Name 


Device 


:L 


line printer 


:C 


crt 


:D 


dummy 







ASCII 


CHARACTER 


SET 




Dec- 


Hex 


Name 


Dec- 


Hex 


Name 


imal 






imal 









00 


NUL 


11 


0B 


VT 


1 


01 


SOH 


12 


OC 


FF 


2 


02 


STX 


13 


0D 


CR 


3 


03 


ETX 


14 


0E 


SO 


4 


04 


EOT 


15 


OF 


SI 


5 


05 


ENQ 


16 


10 


DLE 


6 


06 


ACK 


17 


11 


DC1 


7 


07 


BEL 


18 


12 


DC2 


8 


08 


BS 


19 


13 


DC3 


9 


09 


HT 


20 


14 


DC4 


10 


0A 


LF 


21 


15 


NAK 







ASCII 


Character 


Set 




Dec- 


Hex 


Name 


Dec- 


Hex 


Name 


imal 






imal 






22 


16 


SYN 


75 


4B 


K 


23 


17 


ETB 


76 


4C 


L 


24 


18 


CAN 


77 


4D 


M 


25 


19 


EM 


78 


4E 


N 


26 


IA 


SUB 


79 


4F 


O 


27 


IB 


ESC 


80 


50 


P 


28 


1C 


FS 


81 


51 


Q 


29 


ID 


GS 


82 


52 


R 


30 


IE 


RS 


83 


53 


S 


31 


IF 


US 


84 


54 


T 


32 


20 


" " 


85 


55 


U 


33 


21 


! 


86 


56 


V 


34 


22 


" 


87 


57 


w 


35 


23 


# 


88 


58 


X 


36 


24 


$ 


89 


59 





37 


25 


% 


90 


5A 


z 


38 


26 


& 


91 


5B 


f 


39 


27 


1 


92 


5C 


\ 


40 


28 


( 


93 


5D 


] 


41 


29 


) 


94 


5E 


*■ 


42 


2A 


* 


95 


5F 




43 


2B 


+ 


96 


60 




44 


2C 


, 


97 


61 


a 


45 


2D 


- 


98 


62 


b 


46 


2E 




99 


63 


c 


47 


2F 


/ 


100 


64 


d 


48 


30 





101 


65 


e 


49 


31 


1 


102 


66 


f 


50 


32 


2 


103 


67 


g 


51 


33 


3 


104 


68 


h 


52 


34 


4 


105 


69 


i 


53 


35 


5 


106 


6A 


j 


54 


36 


6 


107 


6B 


k 


55 


37 


7 


108 


6C 


1 


56 


38 


8 


109 


6D 


m 


57 


39 


9 


110 


6E 


n 


58 


3A 




111 


6F 


o 


59 


3B 


; 


112 


70 


P 


60 


3C 


< 


113 


71 


q 


61 


3D 


= 


114 


72 


r 


62 


3E 


> 


115 


73 


s 


63 


3F 


9 


116 


74 


t 


64 


40 


@ 


117 


75 


u 


65 


41 


A 


118 


76 


V 


66 


42 


B 


119 


77 


w 


67 


43 


C 


120 


78 


X 


68 


44 


D 


121 


79 


y 


69 


45 


E 


122 


7A 


z 


70 


46 


F 


123 


7B 


{ 


71 


47 


G 


124 


7C 


1 


72 


48 


H 


125 


7D 


} 


73 


49 


I 


126 


7E 


_ 


74 


4A 


J 


127 


7F 


DEL 



TRS-80® PASCAL 



Quick Reference 
Guide 



PASCAL PROGRAM STRUCTURE 

<optional items> , {user defined} 

Other items must appear as printed. 
Multiple LABEL, TYPE, CONST, COMMON, 
ACCESS, VAR, PROCEDURE and FUNCTION 
declarations are allowed. 

PROGRAM {program name}; 

<LABEL {label list);> 

<TYPE {identifier} = {type definition}> 

<CONST {identifier} = {value), •> 

<COMMON {identifier} : {type};> 

<ACCESS {identifier list};> 

<VAR {identifier} : {type};> 

<PROCEDURE {identifier} {parameter list}; 
<FORWARD;> <EXTERNAL;> 
<{If not declared FORWARD or EXTERNAL 
then declarations and body here} >; > 

<FUNCTION {identifier} {parameter list}: 
{type returned result}; 

<{If not declared FORWARD or EXTERNAL 
then declarations and body here} >; > 

BEGIN 
{program body) 

END. 
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